﻿Imports Logica


Public Class frmintegrador
    Public p As frmInicio = New frmInicio

    Public Sub agregar(ByRef pp As frmInicio)

        p = pp

    End Sub
    Private Sub frmintegrador_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        btnintegrar.Visible = False


    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub calendario_DateChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles calendario.DateChanged
        btnintegrar.Visible = True
    End Sub

    Private Sub btnintegrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnintegrar.Click

        Dim fecha As Date
        Dim pv As Integer

        fecha = calendario.SelectionRange.Start.Date
        txtlog.Text = fecha

        pv = TextBox1.Text

        txtlog.Text = AccesoLogica.validarsuma(fecha, pv)


    End Sub
End Class